home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flwlb32.dir / 00146_Script_146 < prev    next >
Text File  |  1994-11-15  |  2KB  |  96 lines
  1. on startMovie
  2.   cursor 4
  3.   global nowFrame, currMM
  4.   set currMM = "FLWWT"
  5.   
  6.   preLoadCast 1,4
  7.   
  8.   puppetSprite 21, TRUE
  9.   puppetSprite 22, TRUE
  10.   puppetSprite 23, TRUE
  11.   
  12.   puppetSprite 11, TRUE
  13.   
  14.   set the immediate of sprite 23 to TRUE
  15.   set the stretch of sprite 23 to FALSE
  16. end startMovie
  17.  
  18. on stepMovie
  19.   global nowFrame,currFrame
  20.   if nowFrame  <> currFrame then
  21.     seeAlsoList
  22.     set currFrame = nowFrame
  23.   end if
  24. end stepMovie
  25.  
  26. on saveLocals
  27.   global lastMovie, lastFrame, nowFrame
  28.   set lastFrame = nowFrame
  29.   set lastMovie = "FLWLB32"
  30. end saveLocals
  31.  
  32. on buttonState
  33.   global FrankNav, bFlag
  34.   
  35.   if rollover(11) then
  36.     set the castNum of sprite 11 to 1090
  37.     if the mouseDown then
  38.       set the castNum of sprite 11 to 1091
  39.     end if
  40.   else 
  41.     set the castNum of sprite 11 to 1089
  42.   end if
  43.   
  44.   if rollover(5) then
  45.     rollCheck
  46.   else 
  47.     set pos = 0
  48.     cursor -1
  49.   end if
  50.   
  51.   if (the mouseV > 400) or (bFlag = TRUE) then
  52.     doState
  53.   end if
  54. end buttonState
  55.  
  56. on rollCheck
  57.   global right, left, forw, down, pos
  58.   if the mouseH>=257 and the mouseH<=347 and the mouseV>67 and the mouseV<307 then
  59.     if right = 1 then
  60.       set pos = 3
  61.       cursor [1065,1066]
  62.     else
  63.       set pos = 0
  64.       cursor [1071,1072]
  65.     end if
  66.   else if the mouseH>=27 and the mouseH<=119 and the mouseV>67 and the mouseV<307 then
  67.     if left = 1 then
  68.       set pos = 1
  69.       cursor [1069,1070]
  70.     else
  71.       set pos = 0
  72.       cursor [1071,1072]
  73.     end if
  74.   else if the mouseH>=117 and the mouseH<=257 and the mouseV>67 and the mousev<217 then
  75.     if forw = 1 then
  76.       set pos = 2
  77.       cursor [1067,1068]
  78.     else
  79.       set pos = 0
  80.       cursor [1071,1072]
  81.     end if
  82.   else if the mouseH>=117 and the mouseH<=257 and the mouseV>217 and the mouseV<307 then
  83.     if down = 1 then
  84.       set pos = 4
  85.       cursor [1073,1074]
  86.     else if down = 0 and forw = 1 then
  87.       set pos = 2 
  88.       cursor [1067,1068]
  89.     else
  90.       set pos = 0
  91.       cursor [1071,1072]
  92.     end if
  93.   end if
  94. end rollCheck
  95.  
  96.